
* This do file contains the code necessary to generate the ESS dataset with the local variables required to replicate Figures SI-6, SI-16, Tables SI-11, SI-12, SI-14,
* Note: replicators must install the estout and coefplot packages  

*local directory "JOP Replication"

use "ESS_69_local_data.dta"


*************************************
* Variables *************************
*************************************

gen NUTS2_unemployment=n2_loun_pc_act_2013 if essround==7
replace NUTS2_unemployment=n2_loun_pc_act_2015 if essround==8
replace NUTS2_unemployment=n2_loun_pc_act_2017 if essround==9
replace NUTS2_unemployment=n2_lounra_2011 if essround==6

gen REG_unemployment=reg7_loun_pc_act_2013 if essround==7
replace REG_unemployment=reg8_loun_pc_act_2015 if essround==8
replace REG_unemployment=reg9_loun_pc_act_2017 if essround==9
replace REG_unemployment=reg6_lounra_2011 if essround==6

gen regional_unemployment= REG_unemployment
replace regional_unemployment =NUTS2_unemployment if regional_unemployment==.

** economic shocks at the regional level
gen NUTS2_unemployment_change=n2_loun_pc_act_2013/n2_loun_pc_act_2012 if essround==7
replace NUTS2_unemployment_change=n2_loun_pc_act_2015/n2_loun_pc_act_2014 if essround==8
replace NUTS2_unemployment_change=n2_loun_pc_act_2017/n2_loun_pc_act_2016 if essround==9
replace NUTS2_unemployment_change=n2_lounra_2011/n2_lounra_2010 if essround==6

gen REG_unemployment_change=reg7_loun_pc_act_2013/reg7_loun_pc_act_2012 if essround==7
replace REG_unemployment_change=reg8_loun_pc_act_2015/reg8_loun_pc_act_2014 if essround==8
replace REG_unemployment_change=reg9_loun_pc_act_2017/reg9_loun_pc_act_2016 if essround==9
replace REG_unemployment_change=reg6_lounra_2011/reg6_lounra_2010 if essround==6

gen regional_unemployment_change= REG_unemployment_change
replace regional_unemployment_change =NUTS2_unemployment_change if regional_unemployment_change==.
gen regional_unemployment_pchange = (regional_unemployment_change*100)-100
*hist regional_unemployment_pchange

gen NUTS2_netmigrationr=n2_cnmigratrt_2013 if essround==7
replace NUTS2_netmigrationr=n2_cnmigratrt_2015 if essround==8
replace NUTS2_netmigrationr= n2_cnmigratrt_2017 if essround==9
replace NUTS2_netmigrationr= n2_cnmigratrt_2011 if essround==6

gen REG_netmigrationr=reg7_cnmigratrt_2013 if essround==7
replace REG_netmigrationr=reg8_cnmigratrt_2015 if essround==8
replace REG_netmigrationr= reg9_cnmigratrt_2017 if essround==9
replace REG_netmigrationr= reg6_cnmigratrt_2011 if essround==6

gen regional_netmigrationr= REG_netmigrationr
replace regional_netmigrationr =NUTS2_netmigrationr if REG_netmigrationr==.


gen REG_robbr_2010=reg6_robbr_2010 if essround==6
replace REG_robbr_2010=reg7_robbr_2010 if essround==7
replace REG_robbr_2010=reg8_robbr_2010 if essround==8
replace REG_robbr_2010=reg9_robbr_2010 if essround==9

gen regional_robbr_2010= REG_robbr_2010
replace regional_robbr_2010 =n1_robbr_2010 if regional_robbr_2010==.
replace regional_robbr_2010 =n2_robbr_2010 if regional_robbr_2010==.
replace regional_robbr_2010 =n3_robbr_2010 if regional_robbr_2010==.


foreach var in dburg vthft hcide {
gen REG_`var'_2010=reg6_`var'_2010 if essround==6
replace REG_`var'_2010=reg7_`var'_2010 if essround==7
replace REG_`var'_2010=reg8_`var'_2010 if essround==8
replace REG_`var'_2010=reg9_`var'_2010 if essround==9

gen regional_`var'_2010= REG_`var'_2010
replace regional_`var'_2010 =n1_`var'_2010 if regional_`var'_2010==.
replace regional_`var'_2010 =n2_`var'_2010 if regional_`var'_2010==.
replace regional_`var'_2010 =n3_`var'_2010 if regional_`var'_2010==.
}

gen REG_gdp_eurhab=reg7_gdp_eurhab_2013 if essround==7
replace REG_gdp_eurhab=reg8_gdp_eurhab_2015 if essround==8
replace REG_gdp_eurhab=reg9_gdp_eurhab_2017 if essround==9
replace REG_gdp_eurhab=reg6_gdp_eurhab_2011 if essround==6

gen NUTS2_gdp_eurhab=n2_gdp_eurhab_2013 if essround==7
replace NUTS2_gdp_eurhab=n2_gdp_eurhab_2015 if essround==8
replace NUTS2_gdp_eurhab=n2_gdp_eurhab_2017 if essround==9
replace NUTS2_gdp_eurhab=n2_gdp_eurhab_2011 if essround==6

gen regional_gdp_eurhab= REG_gdp_eurhab
replace regional_gdp_eurhab =NUTS2_gdp_eurhab if regional_gdp_eurhab==.

foreach var in phorape pharape nurape derape {
gen REG_`var'_2011=reg6_`var'_2011 if essround==6
replace REG_`var'_2011=reg7_`var'_2011 if essround==7
replace REG_`var'_2011=reg8_`var'_2011 if essround==8
replace REG_`var'_2011=reg9_`var'_2011 if essround==9

gen regional_`var'_2011= REG_`var'_2011
replace regional_`var'_2011 =n1_`var'_2011 if regional_`var'_2011==.
replace regional_`var'_2011 =n2_`var'_2011 if regional_`var'_2011==.
}


gen REG_phyrape_2011=reg6_phyrape_2011 if essround==6
gen regional_phyrape_2011= REG_phyrape_2011
replace regional_phyrape_2011 =n1_phyrape_2011 if regional_phyrape_2011==.
replace regional_phyrape_2011 =n2_phyrape_2011 if regional_phyrape_2011==.

gen country = cntry2
reg vote_choice_PopList_RightPop White_Native_img_undermined_cult older55_authoritarian social_status25_respect2 distant_people_local_noturban regional_gdp_eurhab regional_unemployment regional_netmigrationr    i.essround i.country [aweight=fullweight] 

reg vote_choice_PopList_RightPop White_Native_img_undermined_cult older55_authoritarian rural_have_no_voice2 regional_gdp_eurhab regional_unemployment regional_netmigrationr    i.essround i.country [aweight=fullweight] 



************************** local factors 
***********************
foreach var in reg6_phyrape_2010 reg6_dburg_2010 reg6_vthft_2010 reg6_robbr_2010 reg6_tpopsz_2010 {
egen Z`var'=std(`var')
}
*** regional 
foreach var in regional_gdp_eurhab regional_unemployment regional_unemployment_pchange regional_netmigrationr {
egen Z`var'=std(`var')
}

gen regional_net_emigration=regional_netmigrationr*-1
replace regional_net_emigration =0 if regional_net_emigration<0 & regional_net_emigration<.
gen regional_net_immigration=regional_netmigrationr
replace regional_net_immigration =0 if regional_netmigrationr<0 & regional_netmigrationr<.
foreach var in regional_net_emigration regional_net_immigration {
egen Z`var'=std(`var')
}


label var Zreg6_phyrape_2010 "Physicians per 100,000"
label var Zreg6_dburg_2010 "Number of burglaries"
label var Zreg6_vthft_2010 "Number of vehicle thefts"
label var Zreg6_robbr_2010 "Number of robberies"
label var Zreg6_tpopsz_2010 "Population size"

gen reg6_phyrape_change20102003=((reg6_phyrape_2010/reg6_phyrape_2003)*100)-100
gen reg6_dburg_change20102008=((reg6_dburg_2010/reg6_dburg_2008)*100)-100
gen reg6_vthft_change20102008=((reg6_vthft_2010/reg6_vthft_2008)*100)-100
gen reg6_robbr_change20102008= ((reg6_robbr_2010/reg6_robbr_2008)*100)-100
gen reg6_popsize_change20102000= ((reg6_tpopsz_2010/reg6_tpopsz_2000)*100)-100

gen reg6_depopulation20102000=(reg6_popsize_change20102000*-1)
replace reg6_depopulation20102000=0 if reg6_depopulation20102000<0

label var reg6_phyrape_change20102003 "\% change in Physicians per capita"
label var reg6_dburg_change20102008 "\% change in burglaries"
label var reg6_vthft_change20102008 "\% change in vehicle thefts"
label var reg6_robbr_change20102008 "\% change in robberies"
label var reg6_popsize_change20102000 "\% change in population size"
label var reg6_depopulation20102000 "\% change: depopulation"

foreach var in reg6_phyrape_change20102003 reg6_dburg_change20102008 reg6_vthft_change20102008 reg6_robbr_change20102008 reg6_popsize_change20102000 reg6_depopulation20102000 {
egen Z`var'=std(`var')
}
label var Zreg6_phyrape_change20102003 "SD change in Physicians per capita"
label var Zreg6_dburg_change20102008 "SD change in burglaries"
label var Zreg6_vthft_change20102008 "SD change in vehicle thefts"
label var Zreg6_robbr_change20102008 "SD change in robberies"
label var Zreg6_popsize_change20102000 "SD change in population size"
label var Zreg6_depopulation20102000 "SD change: depopulation"

label var Zregional_gdp_eurhab "GDP per capita"
label var Zregional_netmigrationr "Net migration"
label var Zregional_unemployment "Unemployment rate"

label var White_Native_img_undermined_cult "Ethnocultural estrangement"
label var older55_authoritarian "Intergenerational backlash"
label var social_status25_respect2 "Social status anxiety" 
label var rural_have_no_voice2 "Rural resentment" 
label var rural_resentment_trust "Rural resentment" 
label var distant_people_local_noturban "Community disintegration"

 

*********************************************************************************************************
** Figure (SI-6) Contextual Factors and Cultural Predictors of Voting for Right-Wing Populist Parties *********************************************************************************************************

***all 5 stories in wave 6, add regional unemployment and emigration
local directory "/Users/shirraviv/Dropbox/Mac (2)/Desktop/Replication Materials"
cd "`directory'"
set scheme s1color

reg vote_choice_PopList_RightPop social_status25_respect2 rural_resentment_trust older55_authoritarian White_Native_img_undermined_cult distant_people_local_noturban ///
 i.country ///
[aweight=fullweight] if (regunit==2|regunit==3)
est store regionalpooled_6_1

reg vote_choice_PopList_RightPop social_status25_respect2 rural_resentment_trust older55_authoritarian White_Native_img_undermined_cult distant_people_local_noturban ///
 Zregional_unemployment i.country ///
[aweight=fullweight] if (regunit==2|regunit==3)
est store regionalpooled_6_2

reg vote_choice_PopList_RightPop social_status25_respect2 rural_resentment_trust older55_authoritarian White_Native_img_undermined_cult distant_people_local_noturban ///
 Zregional_net_emigration Zregional_net_immigration i.country ///
[aweight=fullweight] if (regunit==2|regunit==3)
est store regionalpooled_6_3

reg vote_choice_PopList_RightPop social_status25_respect2 rural_resentment_trust older55_authoritarian White_Native_img_undermined_cult distant_people_local_noturban ///
Zregional_unemployment Zregional_net_emigration Zregional_net_immigration i.country ///
[aweight=fullweight] if  (regunit==2|regunit==3)
est store regionalpooled_6_4


coefplot (regionalpooled_6_1, offset(0.20) label(Model 1) mcolor(gs12) msymbol(C) ciopts(lcolor(gs12))) ///
(regionalpooled_6_2, offset(0.05) label(Model 2) mcolor(gs8) msymbol(Dh) ciopts(lcolor(gs8))) ///
(regionalpooled_6_3, offset(-0.10) label(Model 3) mcolor(black) msymbol(Ch) ciopts(lcolor(black))) ///
(regionalpooled_6_4, offset(-0.25) label(Model 4) mcolor(maroon) msymbol(D) ciopts(lcolor(maroon))), ///
xline(0, lwidth(thin) lpattern(dash)) xline(-0.05 -0.025 0.025 0.05 0.075 0.1 0.125 0.15 0.175 0.2, lwidth(thin) lcolor(gs8%30)) ///
keep(social_status25_respect2 rural_resentment_trust older55_authoritarian ///
White_Native_img_undermined_cult distant_people_local_noturban ///
Zregional_unemployment Zregional_net_emigration Zregional_net_immigration) /// 
order(social_status25_respect2 rural_resentment_trust older55_authoritarian ///
White_Native_img_undermined_cult distant_people_local_noturban ///
Zregional_unemployment Zregional_net_emigration Zregional_net_immigration) ///
coeflabels(White_Native_img_undermined_cult="Ethno-cultural estrangement" ///
older55_authoritarian="Intergenerational backlash" ///
social_status25_respect2="Social status anxiety" rural_resentment_trust="Rural resentment" ///
distant_people_local_noturban="Community disintegration" ///
Zregional_net_emigration="Emigration" Zregional_net_immigration="Immigration") ///
legend(nobox region(lstyle(none)) cols(2))

graph export "/Users/shirraviv/Dropbox/Mac (2)/Desktop/Replication Materials/Figures/Fig_SI6.pdf", as(pdf) name("Graph") 




 
******************************************************************************************************
* Table (SI-11)  Cultural Concerns and Voting for the Populist-Right with Demographic Controls
******************************************************************************************************

estimates clear
areg vote_choice_PopList_RightPop social_status25_respect2 rural_resentment_trust older55_authoritarian White_Native_img_undermined_cult distant_people_local_noturban low_education income production_worker Male very_relig unemployed_lookingforjob  [aweight=fullweight], absorb(country)
gen sample_controls6=e(sample)


eststo: areg vote_choice_PopList_RightPop social_status25_respect2 rural_resentment_trust older55_authoritarian White_Native_img_undermined_cult distant_people_local_noturban [aweight=fullweight] if sample_controls6==1, absorb(country)
estadd local fixedef "yes", replace
estadd local fixedeft "", replace
estadd local timetr "", replace
	outreg2 using Tables/table_SI12.xls, alpha(0.01, 0.05) symbol(**, *) dec(3) ///
append label addtext(Country FE, yes, Wave, 6)

eststo: areg vote_choice_PopList_RightPop social_status25_respect2 rural_resentment_trust older55_authoritarian White_Native_img_undermined_cult distant_people_local_noturban low_education  [aweight=fullweight] if sample_controls6==1, absorb(country)
estadd local fixedef "yes", replace
estadd local fixedeft "", replace
estadd local timetr "", replace
	outreg2 using Tables/table_SI12.xls, alpha(0.01, 0.05) symbol(**, *) dec(3) ///
append label addtext(Country FE, yes, Wave, 6)

eststo: areg vote_choice_PopList_RightPop social_status25_respect2 rural_resentment_trust older55_authoritarian White_Native_img_undermined_cult distant_people_local_noturban low_education income   [aweight=fullweight] if sample_controls6==1, absorb(country)
estadd local fixedef "yes", replace
estadd local fixedeft "", replace
estadd local timetr "", replace
	outreg2 using Tables/table_SI12.xls, alpha(0.01, 0.05) symbol(**, *) dec(3) ///
append label addtext(Country FE, yes, Wave, 6)

eststo: areg vote_choice_PopList_RightPop social_status25_respect2 rural_resentment_trust older55_authoritarian White_Native_img_undermined_cult distant_people_local_noturban low_education income production_worker Male very_relig unemployed_lookingforjob  [aweight=fullweight] if sample_controls6==1, absorb(country)
estadd local fixedef "yes", replace
estadd local fixedeft "", replace
estadd local timetr "", replace
	outreg2 using Tables/table_SI12.xls, alpha(0.01, 0.05) symbol(**, *) dec(3) ///
append label addtext(Country FE, yes, Wave, 6)

label var low_education "Low education"
label var income "Income"
label var production_worker "Production worker"
label var Male "Male"
label var very_relig "Religious"
label var unemployed_lookingforjob "Unemployed"


** export full table
esttab est1 est2 est3 est4  ///
 using Tables/table_SI11.tex, ///
 keep(social_status25_respect2 rural_resentment_trust older55_authoritarian White_Native_img_undermined_cult distant_people_local_noturban low_education income production_worker Male very_relig unemployed_lookingforjob) ///
 order(social_status25_respect2 rural_resentment_trust older55_authoritarian White_Native_img_undermined_cult distant_people_local_noturban low_education income Male very_relig production_worker unemployed_lookingforjob) ///
 se(3) b(3) replace star(+ 0.10 * 0.05 ** 0.01) label booktabs compress nonotes nogaps nodepvars mtitles("" "" "" "") ///
 s(fixedef N r2, fmt(0 0 3) label("Country FE" "Observations" "R-squared"))

*****************************************************************************************
* Table (SI-12) Cultural Accounts, Regional Economic Shocks and Voting for Populist-Right
*****************************************************************************************
gen unempshock_status = social_status25_respect2*Zregional_unemployment_pchange
gen unempshock_rural = rural_resentment_trust*Zregional_unemployment_pchange
gen unempshock_older = older55_authoritarian*Zregional_unemployment_pchange
gen unempshock_native = White_Native_img_undermined_cult*Zregional_unemployment_pchange
gen unempshock_community = distant_people_local_noturban*Zregional_unemployment_pchange

label var Zregional_unemployment_pchange "Unemployment shock"
label var unempshock_status "Unemployment shock X Status anxiety"
label var unempshock_rural "Unemployment shock X Rural resentment"
label var unempshock_older "Unemployment shock X Intergenerational backlash"
label var unempshock_native "Unemployment shock X Ethnocultural estrangement"
label var unempshock_community "Unemployment shock X Community disintegration"

estimates clear
eststo: areg vote_choice_PopList_RightPop social_status25_respect2 rural_resentment_trust older55_authoritarian White_Native_img_undermined_cult distant_people_local_noturban [aweight=fullweight]  , absorb(country)
estadd local fixedef "yes", replace
	outreg2 using Tables/table_SI12.xls, alpha(0.01, 0.05) symbol(**, *) dec(3) ///
append label addtext(Country FE, yes, Wave, 6)

eststo: areg vote_choice_PopList_RightPop social_status25_respect2 rural_resentment_trust older55_authoritarian White_Native_img_undermined_cult distant_people_local_noturban Zregional_unemployment_pchange [aweight=fullweight]  , absorb(country)
estadd local fixedef "yes", replace
	outreg2 using Tables/table_SI12.xls, alpha(0.01, 0.05) symbol(**, *) dec(3) ///
append label addtext(Country FE, yes, Wave, 6)

eststo: areg vote_choice_PopList_RightPop social_status25_respect2 rural_resentment_trust older55_authoritarian White_Native_img_undermined_cult distant_people_local_noturban Zregional_unemployment_pchange unempshock_status [aweight=fullweight]  , absorb(country)
estadd local fixedef "yes", replace
	outreg2 using Tables/table_SI12.xls, alpha(0.01, 0.05) symbol(**, *) dec(3) ///
append label addtext(Country FE, yes, Wave, 6)

eststo: areg vote_choice_PopList_RightPop social_status25_respect2 rural_resentment_trust older55_authoritarian White_Native_img_undermined_cult distant_people_local_noturban Zregional_unemployment_pchange unempshock_rural [aweight=fullweight]  , absorb(country)
estadd local fixedef "yes", replace
	outreg2 using Tables/table_SI12.xls, alpha(0.01, 0.05) symbol(**, *) dec(3) ///
append label addtext(Country FE, yes, Wave, 6)

eststo: areg vote_choice_PopList_RightPop social_status25_respect2 rural_resentment_trust older55_authoritarian White_Native_img_undermined_cult distant_people_local_noturban Zregional_unemployment_pchange unempshock_older [aweight=fullweight]  , absorb(country)
estadd local fixedef "yes", replace
	outreg2 using Tables/table_SI12.xls, alpha(0.01, 0.05) symbol(**, *) dec(3) ///
append label addtext(Country FE, yes, Wave, 6)

eststo: areg vote_choice_PopList_RightPop social_status25_respect2 rural_resentment_trust older55_authoritarian White_Native_img_undermined_cult distant_people_local_noturban Zregional_unemployment_pchange unempshock_native [aweight=fullweight]  , absorb(country)
estadd local fixedef "yes", replace
	outreg2 using Tables/table_SI12.xls, alpha(0.01, 0.05) symbol(**, *) dec(3) ///
append label addtext(Country FE, yes, Wave, 6)

eststo: areg vote_choice_PopList_RightPop social_status25_respect2 rural_resentment_trust older55_authoritarian White_Native_img_undermined_cult distant_people_local_noturban Zregional_unemployment_pchange unempshock_community [aweight=fullweight]  , absorb(country)
estadd local fixedef "yes", replace
	outreg2 using Tables/table_SI12.xls, alpha(0.01, 0.05) symbol(**, *) dec(3) ///
append label addtext(Country FE, yes, Wave, 6)

eststo: areg vote_choice_PopList_RightPop social_status25_respect2 rural_resentment_trust older55_authoritarian White_Native_img_undermined_cult distant_people_local_noturban Zregional_unemployment_pchange unempshock_status unempshock_rural unempshock_older unempshock_native unempshock_community [aweight=fullweight]  , absorb(country)
estadd local fixedef "yes", replace
	outreg2 using Tables/table_SI12.xls, alpha(0.01, 0.05) symbol(**, *) dec(3) ///
append label addtext(Country FE, yes, Wave, 6)

** export full table
esttab est1 est2 est3 est4 est5 est6 est7 est8 ///
 using Tables/table_SI12.tex, ///
 keep(social_status25_respect2 rural_resentment_trust older55_authoritarian ///
White_Native_img_undermined_cult distant_people_local_noturban ///
Zregional_unemployment_pchange unempshock_status unempshock_rural ///
unempshock_older unempshock_native unempshock_community) ///
 order(social_status25_respect2 rural_resentment_trust older55_authoritarian ///
White_Native_img_undermined_cult distant_people_local_noturban ///
Zregional_unemployment_pchange unempshock_status unempshock_rural ///
unempshock_older unempshock_native unempshock_community) ///
 se(3) b(3) replace star(+ 0.10 * 0.05 ** 0.01) label booktabs compress nonotes nogaps nodepvars mtitles("" "" "" "" "" "" "" "") ///
 s(fixedef N r2, fmt(0 0 3) label("Country FE" "Observations" "R-squared"))


***************************************************************
* Table (SI-14) Alternative measures of community disintegration 
***************************************************************

reg vote_choice_PopList_RightPop social_status25_respect2  rural_resentment_trust older55_authoritarian ///
White_Native_img_undermined_cult distant_people_local_noturban ///
Zreg6_phyrape_change20102003 Zreg6_dburg_change20102008 Zreg6_depopulation20102000 i.country ///
[aweight=fullweight] if regunit==2
gen sample_amenities=e(sample)

reg vote_choice_PopList_RightPop social_status25_respect2  rural_resentment_trust older55_authoritarian ///
White_Native_img_undermined_cult distant_people_local_noturban i.country ///
[aweight=fullweight] if   regunit==2 & sample_amenities==1
est store community_col001
estadd local fixedef "yes", replace
	outreg2 using Tables/table_SI14, alpha(0.01, 0.05) symbol(**, *) dec(3) ///
append label addtext(Country FE, yes, Wave, 6)

reg vote_choice_PopList_RightPop social_status25_respect2  rural_resentment_trust older55_authoritarian ///
White_Native_img_undermined_cult Zreg6_phyrape_change20102003 i.country ///
[aweight=fullweight] if   regunit==2 & sample_amenities==1
est store community_col002
estadd local fixedef "yes", replace
	outreg2 using Tables/table_SI14, alpha(0.01, 0.05) symbol(**, *) dec(3) ///
append label addtext(Country FE, yes, Wave, 6)

reg vote_choice_PopList_RightPop social_status25_respect2  rural_resentment_trust older55_authoritarian ///
White_Native_img_undermined_cult Zreg6_dburg_change20102008 i.country ///
[aweight=fullweight] if   regunit==2 & sample_amenities==1
est store community_col003
estadd local fixedef "yes", replace
	outreg2 using Tables/table_SI14, alpha(0.01, 0.05) symbol(**, *) dec(3) ///
append label addtext(Country FE, yes, Wave, 6)

reg vote_choice_PopList_RightPop social_status25_respect2  rural_resentment_trust older55_authoritarian ///
White_Native_img_undermined_cult Zreg6_depopulation20102000 i.country ///
[aweight=fullweight] if   regunit==2 & sample_amenities==1
est store community_col004
estadd local fixedef "yes", replace
	outreg2 using Tables/table_SI14, alpha(0.01, 0.05) symbol(**, *) dec(3) ///
append label addtext(Country FE, yes, Wave, 6)

reg vote_choice_PopList_RightPop social_status25_respect2  rural_resentment_trust older55_authoritarian ///
White_Native_img_undermined_cult distant_people_local_noturban ///
Zreg6_phyrape_change20102003 Zreg6_dburg_change20102008 Zreg6_depopulation20102000 i.country ///
[aweight=fullweight] if   regunit==2 & sample_amenities==1
est store community_col005
estadd local fixedef "yes", replace
	outreg2 using Tables/table_SI14, alpha(0.01, 0.05) symbol(**, *) dec(3) ///
append label addtext(Country FE, yes, Wave, 6)

** export full table
esttab community_col001 community_col002 community_col003 community_col004 community_col005 ///
 using Tables/table_SI14.tex, ///
 keep(social_status25_respect2  rural_resentment_trust older55_authoritarian ///
White_Native_img_undermined_cult distant_people_local_noturban ///
Zreg6_phyrape_change20102003 Zreg6_dburg_change20102008 Zreg6_depopulation20102000) ///
 order(social_status25_respect2  rural_resentment_trust older55_authoritarian ///
White_Native_img_undermined_cult distant_people_local_noturban ///
Zreg6_phyrape_change20102003 Zreg6_dburg_change20102008 Zreg6_depopulation20102000) ///
 se(3) b(3) replace star(* 0.05 ** 0.01) label booktabs compress nonotes nogaps nodepvars mtitles("" "" "" "" "") ///
 s(fixedef N r2, fmt(0 0 3) label("Country FE" "Observations" "R-squared"))

 
